﻿Partial Public Class Ad
    Inherits UserControl

    Public Sub New()
        InitializeComponent()
    End Sub

    ''' <summary>
    ''' Titre du composant.
    ''' </summary>
    ''' <remarks></remarks>
    Public Shared ReadOnly TitleProperty As DependencyProperty = DependencyProperty.Register("Title", GetType(String), GetType(Ad), Nothing)
    Public Property Title() As String
        Get
            Return MyBase.GetValue(TitleProperty)
        End Get
        Set(ByVal value As String)
            MyBase.SetValue(TitleProperty, value)
            Me.TitleTextBlock.Text = Me.Title
        End Set
    End Property

    ''' <summary>
    ''' Executé lorsqu'on clique sur le bouton Play.
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub PlayButton_Click(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles PlayButton.Click
        MessageBox.Show("Lire la vidéo")
    End Sub

End Class
